TRS-80 @ PASCAL 



Quick Reference 
Guide 



PASCAL PROGRAM STRUCTURE 

<optional items> , {user defined} 

Other items must appear as printed. 
Multiple LABEL, TYPE, CONST, COMMON, 
ACCESS, VAR, PROCEDURE and FUNCTION 
declarations are allowed. 

PROGRAM {program name}; 

<LABEL {label list};> 

<TYPE {identifier} = {type definition^ 

<CONST {identifier} - {value}, •> 

<COMMON {identifier} : {type};> 

<ACCESS {identifier list};> 

<VAR {identifier} : {type};> 

<PROCEDURE {identifier} {parameter list}; 
<FORWARD;> <EXTERNAL;> 
<{If not declared FORWARD or EXTERNAL 
then declarations and body here} >; > 

<FUNCTION {identifier} {parameter list}: 
{type returned result}; 
<{If not declared FORWARD or EXTERNAL 
then declarations and body here} >; > 

BEGIN 

{program body} 
END. 
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PASCAL PROGRAM STRUCTURE 
A parameter list may be defined as follows: 

{ <VAR> {identifier list} : {type}; 
<VAR> {identifier list} : {type} ) 

An identifier must start with a letter, and 
is composed of the letters, digits and the 
'_' , '$' characters. The first 8 characters 
must form a unique name. 



PREDEFINED TYPES 
CHAR, INTEGER, BOOLEAN, REAL, TEXT 

A type definition is: 

(1) {predefined type}; 

(2) {constant} .. {constant} ; 

(3) ( {identifier list} ); 

(4) <packed> RECORD 

{identifier list} : {type} 
{identifier list} : {type} 
END; 

(5) <packed> ARRAY [ {bounds} ] 
OF {type} ; 

(6) FILE OF {type} ; 

(7) SET OF {type} ; 



FLOW CONTROL STATEMENTS 

CASE {expression} OF 

{selector list} : {statement}; 
{selector list} : {statement}; 

< OTHERWISE {statement}; > 
END; 

IF (expression) THEN 
{ statement} 

< ELSE {statement}; > 

REPEAT {statement list}; 
UNTIL { (expression) }; 

WHILE { (expression) } DO {statement}; 

GOTO {label}; 

ESCAPE; 





BOOLEAN OPERATORS 


Operator 


Result of Operation 


OR 


True if either one or both 




of the operands is true. 


AND 


True only if both operands 




are true. 


NOT 


True if operand is false. 











ASCII 


Character 


Set 




Dec- 


Hex 


Name 


Dec- 


Hex 


Name 


imal 






imal 






22 


16 


SYN 


75 


4B 


K 


23 


17 


ETB 


76 


4C 


L 


24 


18 


CAN 


77 


4D 


M 


25 


19 


EM 


78 


4E 


N 


26 


1A 


SUB 


79 


4F 





27 


13 


ESC 


80 


50 


P 


28 


1C 


FS 


81 


51 


Q 


29 


ID 


GS 


82 


52 


R 


30 


IE 


RS 


83 


53 


S 


31 


IF 


US 


84 


54 


T 


32 


20 


II If 


85 


55 


U 


33 


21 


1 


86 


56 


V 


34 


22 


" 


87 


57 


w 


35 


23 


# 


88 


58 


X 


36 


24 


$ 


89 


59 


Y 


37 


25 


% 


90 


5A 


Z 


38 


26 


& 


91 


5B 


[ 


39 


27 


1 


92 


5C 


\ 


40 


28 


( 


93 


5D 


] 


41 


29 


) 


94 


5E 


* 


42 


2 A 


* 


95 


5F 




43 


23 


+ 


96 


60 


~ 


44 


2C 


1 


97 


61 


a 


45 


2D 


- 


9 8 


62 


b 


46 


2E 


. 


99 


63 


c 


47 


2F 


/ 


100 


64 


d 


48 


30 





101 


65 


e 


49 


31 


1 


102 


66 


f 


50 


32 


2 


103 


67 


g 


51 


33 


3 


104 


68 


h 


52 


34 


4 


105 


69 


i 


53 


35 


5 


106 


6A 


J 


54 


36 


6 


107 


63 


k 


55 


37 


7 


108 


6C 


1 


56 


38 


8 


109 


6D 


m 


57 


39 


9 


110 


6E 


n 


58 


3A 


: 


111 


6F 


o 


59 


3B 


; 


112 


70 


P 


60 


3C 


< 


113 


71 


q 


61 


3D 


= 


114 


72 


r 


62 


3E 


> 


115 


73 


s 


63 


3F 


? 


116 


74 


t 


64 


40 


9 


117 


75 


u 


65 


41 


A 


118 


76 


V 


66 


42 


B 


119 


77 


w 


67 


43 


C 


120 


78 


X 


68 


44 


D 


121 


79 


y 


69 


45 


E 


122 


7A 


z 


70 


46 


F 


123 


7B 


{ 


71 


47 


G 


124 


7C 


1 


72 


48 


H 


125 


7D 


} 


73 


49 


I 


126 


7E 


- 


74 


4A 


J 


127 


7F 


DEL 



ARITHMETIC OPERATORS 
I = integer , R = real 


Operator 


Operation 


Type 
Operands 


Type 
Result 


+ 


add 


I , R 


I , R 


set 
union 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


- 


subtract 


I , R 


I , R 


set diff 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


* 


multiply 


I , R 


I , R 


set 

inter- 
section 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


/ 


division 


I , R 


R 


DIV 


truncated 
division 


I 


I 


MOD 


modulus 


I 


I 



SPECIAL SYMBOLS 



Symbols 


with 


only 


one 


re 


presentation: 


+ 


- 


• 




/ 




( 


<> 
) 


< 
t 

1 




< = 
\ 


>= > 


Symbols 


with 


alternate 


representations: 


symbol 




alter 


iate 




Meaning 


{ 




(* 






open comment 


} 




*) 






close comment 


[ 
] 




( . 
.) 






pointer symbol 
open array index 
close array index 



<optional item> , {user defined item} 
"items" are computer responses 



COMPILING 

Short Form: 

PASCAL {FILE CONTAINING SOURCE} 

Long Form: 

PASCAL 

"SOURCE ■" <FILE CONTAINING SOURCE> 

"LISTING=" <FILE FOR LISTINO 

"OBJECT =" <FILE FOR OBJECT> 



EXECUTING 


Load and Execute 




RUNP {FILENAME} <STACK SIZE> 


Execute or Build 


Command File: 


LINKLOAD 




Command 

L 


Meaning 
load object file 


R 

T 
I 
S 
B 


run program 
return to TRSDOS 
clear symbol table 
display symbol table 
build command file 



DEVICE NAMES 



Name 
:L 

:C 
:D 



Device 
line printer 
crt 
dummy 





ASCII CHARACTER SET 




Dec- 


Hex 


Name 


Dec- 


Hex 


Name 


imal 






imal 









00 


NUL 


11 


0B 


VT 


1 


01 


SOH 


12 


0C 


FF 


2 


02 


STX 


13 


0D 


CR 


3 


03 


ETX 


14 


0E 


SO 


4 


04 


EOT 


15 


OF 


SI 


5 


05 


ENQ 


16 


10 


DLE 


6 


06 


ACK 


17 


11 


DC1 


7 


07 


BEL 


18 


12 


DC2 


8 


08 


BS 


19 


13 


DC3 


9 


09 


HT 


20 


14 


DV4 


10 


0A 


LF 


21 


15 


NAK 



RELATIONAL OPERATORS 
Operator Result of Operation 
= True if left operand is equal 

to right. 
<> True if left operand is not 

equal to right. 
< True if left operand is less 

than right. 
> True if left operand is greater 

than right. 
<= True if left operand is less 

than or equal to right. 
>= True if left operand is greater 

than or equal to right. 







OPERATOR PRECEDENCE 


( ) 




< — highest precedence 


+ , 


- 


< — unary operators 


* 
t 


/ 


, DIV , MOD 


+ , 


- 






<> 


, < , > f <«#>«, IN 


NOT 






AND 






OR 




< — lowest precedence 





RESERVED WORDS 






The fo 


llowing list 


of words are keywords 


and have special meaning 


in a program. 


They may not be used as i 


dentif iers. 




AND 


DOWNTO 


IF 


OR 


THEN 


ARRAY 


ELSE 


IN 


PACKED 


TO 


BEGIN 


END 


LABEL 


PROCEDURE 


TYPE 


CASE 


FILE 


MOD 


PROGRAM 


UNTIL 


CONST 


FOR 


NIL 


RECORD 


VAR 


DIV 


FUNCTION 


NOT 


REPEAT 


WHILE 


DO 


GOTO 


OF 


SET 


WITH 



ARITHMETIC FUNCTIONS 
ABS(x) absolute value SQR(x) square 
SIN(x) sine COS(x) cosine 

ARCTAN(x) arctangent EXP(x) natural 
LN(x) natural exponential 

logarithm SQRT(x) sq. root 



FILE ASSOCIATED 


PROCEDURES 


RESET(f ) 


REWRITE(f ) 


PAGE(f ) 


CLOSE (f ) 


MESSAGE(S) 


GET, PUT 


READ , READLN 


WRITE, WRITELN 





FUNCTIONS 




Boolean 


Transfer 


ODD(x) 


TRUNC(X) 


LOCATION (x) 


EOLN(f ) 


ROUND(x) 


SIZE(x) 


EOF ( f ) 


ORD(x) 


HB(x) 




CHR(x) 


LB(x) 



OTHER FUNCTIONS 
SUCC(x) PRED(x) 





EDIT <filename> 




KEY MAPPED 


COMMANDS 


Key 


Mnemonic 


Function 


*E 


UP 


Cursor up 


•*x 


ON 


Cursor down 


*s 


LF 


Cursor left 


*D 


RT 


Cursor right 


~QS 


BL 


Cursor to BOLN 


-QD 


EL 


Cursor to EOLN 


~H 


LF 


Cursor left 


-QH 


BM 


Cursor home 


*F 


FW 


Forward by word 


~A 


3W 


Backward by word 


"I 


TB 


Tab forward 


-QI 


BT 


Tab backward 


*R 


RU 


Roll up 


~C 


RD 


Roll down 


~QR 


TP 


Top of buffer 


"QC 


BB 


Bottom of buffer 


*G 


DC 


Delete character 


- T 


DW 


Delete word 


~K 


DS 


Delete to end of line 


*Y 


DL 


Delete line 


-QY 


UL 


Undelete line 


~QF 


CL 


Center line 


*u 


DU 


Duplicate line 


~0 


S? 


Split line 


•p 


MG 


Merge line 


"N 


IL 


Insert line 


~M 


NL 


Next line 


"J 


FN 


Find next 


*QJ 


FS 


Find string 


~L 


RN 


Replace next 


~QL 


R3 


Replace string 


"BM 


MX 


Mark block 


~BC 


CB 


Copy marked block 


~BD 


DB 


Delete marked block 


~BI 


IB 


Insert block 


~BF 


FI 


Fill marked block 


~BJ 


JF 


Justify marked block 


~BU 


UR 


Upper case marked block 


*BL 


LR 


Lower case marked block 


~BG 


GM 


Go to mark 


~BS 


SW 


Swap cursor and mark 


~BP 


PR 


Print marked block 


-v 


IC 


Insert character mode 


~z 


CM 


Command mode 





COMMAND 


MODE 


HELP 


HP 


Display help files 


APPEND 


AP 


Append lines to buffer 


WRITE 


WR 


Write lines to file 


INSFILE 


IF 


Insert file 


EXTRACT 


XT 


Write marked block to file 


SAVE 


SV 


Save current changes 


EXIT 


EX 


Exit and save changes 


QUIT 


QT 


Exit without saving 



OTHER PROCEDURES 
PACK(a,i,z) UNPACK (z, a, i) 
NEW(p) DISPOSE(p) 

ESCAPE 



EXTERNAL LIBRARY ROUTINES 
(portable) 
PROCEDURE CALL$( ADDRESS: INTEGER; VAR A,F: 

BYTE; VAR BC, DE, HL, IX, IY:INTEGER); 
FUNCTION FILE$STATUS(VAR F :TEXT) :BYTE; 
FUNCTION GETKEY:CHAR; 
PROCEDURE HP$ ERROR ( NEWSTATE : BOOLEAN ; 

VAR OLDSTATE : BOOLEAN ) ; 
PROCEDURE INKEY(VAR CH:CHAR; 

VAR READY : BOOLEAN ) ; 
FUNCTION INP (PORT: BYTE) : BYTE; 
PROCEDURE 10$ ERROR (NEWSTATE: BOOLEAN; 

VAR OLDSTATE: BOOLEAN) ; 
PROCEDURE OUT ( PORT , VALUE : BYTE ) ; 
FUNCTION PEEK( ADDRESS: INTEGER) :BYTE; 
PROCEDURE POKEt ADDRESS: INTEGER; 

VALUE: BYTE) ; 
PROCEDURE SETACNM(VAR F:TEXT; NAME: STRING) 
PROCEDURE USER(ADDRESS:INTEGER; 

VAR HL: INTEGER) ; 
PROCEDURE WRI TECH (CH: CHAR ) ; 
PROCEDURE WRITESTRING(VAR S : CHARSTRING; 

FIRST, LAST:INTEGER) ; 
PROCEDURE $MEMORY(VAR STACK, HEAP: INTEGER) ; 

String Routines 

FUNCTION CHARACTERS: STRING; POSITION: 

INTEGER) :CHAR; 
FUNCTION CMPSTR( SI, S2: STRING) : 

COMPAREVALUE; 
FUNCTION CONC( SI, S2: STRING) : STRING; 
FUNCTION CPYSTR(S: STRING) : STRING; 
FUNCTION DECODED (S: STRING) : REAL; 
FUNCTION DECODEKS: STRING) : INTEGER; 
FUNCTION DECODER(S: STRING) :REAL; 
FUNCTION DELETE(S: STRING; POSITION, 

LENGTH: INTEGER) : STRING; 
FUNCTION ENCODED ( R : REAL ) : STRI NG ; 
FUNCTION ENCODEKN: INTEGER) : STRING; 
FUNCTION ENCODER (R: REAL) : STRING; 
FUNCTION FIND(SUBSTRING,S:STRING) :INTEGER; 
FUNCTION INSERT( SUBSTRING, S: STRING; 

POSITION:INTEGER) : STRING; 
FUNCTION LEFT$(S: STRING; POSITION: 

INTEGER) : STRING; 
FUNCTION LEN(S:STRING) :INTEGER; 
FUNCTION MID$(S: STRING; POSITION, 

LENGTH: INTEGER) : STRING; 
FUNCTION REPLACE (OLDSTRING, NEWSTRING, S 

: STRING) -.STRING; 
FUNCTION RIGHT$(S: STRING; POSITION: 

INTEGER) :STRING; 
FUNCTION STR$( LENGTH: INTEGER; CH:CHAR) 

: STRING; 



COMPILER ERROR MESSAGES 

138 TYPE OF VARIABLE IS NOT ARRAY 

140 TYPE OF VARIABLE IS NOT RECORD 

141 TYPE OF VARIABLE IS NOT POINTER 
148 SET BOUNDS OUT OF RANGE 

152 NO SUCH FIELD IN THIS RECORD 

154 ACTUAL PARAMETER MUST BE A VARIABLE 

156 MULTIDEFINED CASE LABEL 

161 PROCEDURE OR FUNCTION ALREADY 

DECLARED AT A PREVIOUS LEVEL 
165 LABEL ALREADY DEFINED 

167 UNDECLARED LABEL 

168 LABEL NOT DEFINED 

182 "FOR" EXPRESSION MUST BE OF 
SOME ENUMERATION TYPE 

183 "CASE" EXPRESSION MUST BE OF 

SOME ENUMERATION TYPE 
18 4 "FOR" VARIABLE MUST BE LOCAL 
18 5 OPERATION DEFINED FOR TEXT ONLY 

18 6 OPERATION NOT DEFINED FOR TEXT FILES 

19 3 ACCESS STATEMENT MISSING FOR COMMON 
199 FEATURE NOT IMPLEMENTED 

202 STRING CONSTANT CANNOT SPAN LINES 

20 3 INTEGER CONSTANT TOO LARGE 

210 FIELD WIDTH MUST BE INTEGER 

211 FRACTION LENGTH MUST BE OF TYPE 
INTEGER 

212 HEX FORMAT ALLOWED ONLY FOR TYPE 
INTEGER 

219 PARAMETER MUST BE OF TYPE FILE 

220 PARAMETER MUST BE OF TYPE INTEGER 
223 PARAMETER MUST BE OF TYPE POINTER 

230 ILLEGAL TYPE OF PARAMETER IN STANDARD 

PROCEDURE CALL 
250 TOO MANY NESTED SCOPES - LIMIT IS 15 



RUNTIME ERROR MESSAGES 

01 Out of stack space 

02 Heap space exhausted 

03 Invalid pointer in dispose 

04 Illegal static nesting level 

05 Attempt to divide by zero 

06 Pcode instruction not defined 

07 Sets not compatible 

08 Undefined internal procedure 

09 Physical IO error 

0A Set element too large 

10 Invalid array index 

11 Attempt to read invalid number 

12 Undefined file buffer variable 

13 Arithmetic overflow 

EB Attempt to write to input file 

EC File not open 

ED Attempt to read from output file 

EE No heap space for file buffer 



COMPILER ERROR MESSAGES 

2 IDENTIFIER EXPECTED 

3 'PROGRAM' EXPECTED 

4 ' ) ' EXPECTED 

5 ' : ' EXPECTED 

6 ILLEGAL SYMBOL 

8 'OF' EXPECTED 

9 ' ( ' EXPECTED 

10 ERROR IN TYPE 

11 LEFT BRACKET » [" OR '(.' EXPECTED 

12 RIGHT BRACKET ']' OR '.)' EXPECTED 

13 'END' EXPECTED 

14 ' ; ' EXPECTED 

15 INTEGER EXPECTED 

16 '=' EXPECTED 

17 'BEGIN' EXPECTED 
20 ' , ' EXPECTED 

22 ' . . ' EXPECTED 

23 '.' EXPECTED 

49 'ARRAY' EXPECTED 

50 CONSTANT EXPECTED 

51 ':=' EXPECTED 

52 'THEN' EXPECTED 

53 'UNTIL' EXPECTED 

54 'DO' EXPECTED 

5 5 ' TO ' / ' DOWNTO ' EXPECTED 

57 'FILE' EXPECTED 

58 INVALID OR MISSING OPERAND 

62 DECIMAL PLACES ALLOWED ONLY FOR REAL 

66 TYPE IDENTIFIER EXPECTED 

8 OPEN COMMENT WITHIN A COMMENT 

81 UNKNOWN OPTION 

82 # REQUIRES A 2 CHARACTER HEX VALUE 
OR ## 

101 IDENTIFIER DECLARED TWICE 

102 LOWER BOUND EXCEEDS UPPER BOUND 

103 IDENTIFIER IS NOT OF APPROPRIATE CLASS 

104 UNDECLARED IDENTIFIER 

105 CLASS OF IDENTIFER IS NOT VARIABLE 
107 INCOMPATIBLE SUBRANGE TYPES 

113 ARRAY BOUNDS MUST BE SCALAR 
117 UNSATISFIED FORWARD REFERENCE TO 
A TYPE IDENTIFER OF A POINTER 

119 ';' EXPECTED (PARAMETER LIST NOT 

ALLOWED) 

120 FUNCTION RESULT MUST BE SCALAR, 
SUBRANGE, OR POINTER 

123 FUNCTION RESULT EXPECTED 

126 IMPROPER NUMBER OF PARAMETERS 

127 TYPE OF ACTUAL PARAMETER DOES NOT 
MATCH FORMAL PARAMETER 

129 TYPE CONFLICT OF OPERANDS IN 

AN EXPRESSION 
132 COMPARISON WITH • >' OR '<' NOT 

ALLOWED ON SETS 
134 ILLEGAL TYPE OF OPERANDS 
13 5 TYPE OF EXPRESSION MUST BE BOOLEAN 
13 6 SET ELEMENT TYPE MUST BE SOME 

ENUMERATION TYPE 



